home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Add-Ins, ConnectAddin() Subroutine < prev    next >
Encoding:
Text File  |  1997-07-14  |  306 b   |  10 lines
  1. 'Description: Example ConnectAddIn subroutine. 
  2.  
  3. 'Paste into class module
  4.  
  5. 'Sub ConnectAddIn(VBInst As VBIDE.Application)
  6. Set gobjIDEAppInst = VBInst
  7. Set AddInItems = VBInst.AddInMenu.MenuItems
  8. Set mymenu = AddInItems.Add("I've Created An Add-In!!!!")
  9. ConnectID = mymenu.ConnectEvents(Me)
  10. 'End Sub